home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt87ibm.arc / DRUMMOND.ARC / T810.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-25  |  640 b   |  27 lines
  1. program test_810;
  2. const
  3.      PORT_LOC = $380;
  4.      NSC_0    = $000;
  5.      MDR      = $7;
  6.      PORT_AB  = 0;
  7.      DDR_AB   = $4;
  8.  
  9. var
  10.    i,j,k:         integer;
  11.  
  12. begin
  13.      portw[PORT_LOC or NSC_0 or MDR] := 0;
  14.      portw[PORT_LOC or NSC_0 or DDR_AB] := $ffff;
  15.      repeat
  16.            begin
  17.                 for j := 0 to maxint do
  18.                 begin
  19.                      portw[PORT_LOC or NSC_0 or PORT_AB] := j;
  20.                      k := portw[PORT_LOC or NSC_0 or PORT_AB];
  21.                      if j <> k then writeln('help'^G);
  22.                 end;
  23.            end;
  24.            writeln(k);
  25.      until false;
  26. end.
  27.